home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / SR146-RANGE GET.txt < prev    next >
Text File  |  2023-02-26  |  313b  |  7 lines
  1.  
  2.  146  IF  NOT NH THEN NH = 9
  3.  147 VT =  PEEK (37):HT =  PEEK (36): INPUT V$:V =  VAL (V$): IF V <  = NH AND V >  = NL THEN 149
  4.  148  VTAB VT + 2: INVERSE : PRINT " MUST BE BETWEEN ";NL;" AND ";NH;" ": NORMAL : FOR X = 1 TO 1600: NEXT : VTAB VT + 2: CALL  - 868: VTAB VT + 1: HTAB HT + 1: GOTO 147
  5.  149  RETURN 
  6.  
  7.